rr seurobj <- readRDS(‘output/seurat_objects/180831/10x-180831’)

Colors

rr hcl_palettes(plot = TRUE)

Timepoint colors

plot_grid(
  TSNEPlot(seurobj, group.by='timepoint', pt.size=1, colors.use=rev(sequential_hcl(5, palette='TealGrn'))),
  TSNEPlot(seurobj, group.by='timepoint', pt.size=1, colors.use=rev(sequential_hcl(5, palette='BluGrn'))),
  TSNEPlot(seurobj, group.by='timepoint', pt.size=1, colors.use=rev(sequential_hcl(5, palette='Blue Yellow'))),
  TSNEPlot(seurobj, group.by='timepoint', pt.size=1, colors.use=rev(sequential_hcl(5, palette='PurpOr')))
)

Custom colors timepoints

plot_grid(
  TSNEPlot(seurobj, group.by='timepoint', pt.size=1, colors.use=rev(c('#0263A1', '#008FB0', '#4CB6BC', '#8ED7CA', '#CBF1DE'))),
  TSNEPlot(seurobj, group.by='timepoint', pt.size=1, colors.use=rev(c('#4847A1', '#0087BE', '#00BED1', '#3DEFDA', '#B0FFDF'))),
  TSNEPlot(seurobj, group.by='timepoint', pt.size=1, colors.use=rev(c('#00589C','#008DA5', '#00B9A1', '#6DDD95', '#D7F797'))),
  TSNEPlot(seurobj, group.by='timepoint', pt.size=1, colors.use=rev(c('#0077B5', '#00A7C3', '#00CAC2', '#42E0B4', '#8CE599'))),
  TSNEPlot(seurobj, group.by='timepoint', pt.size=1, colors.use=rev(c('#005090','#007C98','#00A39B','#00C598','#86E094'))),
   TSNEPlot(seurobj, group.by='timepoint', pt.size=1, colors.use=c('#f5eb82','#c8d29b','#bca986','#bf877f','#a8cec2')), ncol=2, labels=c('custom1', 'custom2', 'custom3', 'custom4', 'custom5', 'custom6')
)

Depots

plot_grid(
  TSNEPlot(seurobj, group.by='depot', pt.size=1, colors.use=c('#825c2a', '#ebd1ac', '#5c3724', '#eab476')),
  TSNEPlot(seurobj, group.by='depot', pt.size=1, colors.use=c('#82643a', '#d1a567', '#6c4431', '#e3c78a')),
  TSNEPlot(seurobj, group.by='depot', pt.size=1, colors.use=c('#825c2a', '#ebd1ac', '#5c3724', '#d1a567')),
  TSNEPlot(seurobj, group.by='depot', pt.size=1, colors.use=c('brown', 'orange', '#5c3724', '#d1a567')),
  ncol=2
)

Monocle

rr cds <- readRDS(‘output/monocle/180831/monocle_T1T2T3_T4T5_res1.5/10x-180831-monocle-metadata’)

plot_grid(
  plot_cell_trajectory(cds, color_by='timepoint') + scale_color_manual(values=rev(c('#0077B5', '#00A7C3', '#00CAC2', '#42E0B4', '#8CE599')), name = "Timepoint"),
  plot_cell_trajectory(cds, color_by='timepoint') + geom_point(color='white', size=5) + geom_point(aes(colour=timepoint), alpha=0.1) + scale_color_manual(values=rev(c('#0077B5', '#00A7C3', '#00CAC2', '#42E0B4', '#8CE599')), name = "Timepoint"),
  plot_cell_trajectory(cds, color_by='timepoint') + scale_color_manual(values=rev(sequential_hcl(5, palette='TealGrn')), name = "Timepoint"),
  plot_cell_trajectory(cds, color_by='timepoint') + geom_point(color='white', size=5) + geom_point(aes(colour=timepoint), alpha=0.1) + scale_color_manual(values=rev(sequential_hcl(5, palette='TealGrn')), name = "Timepoint"),
  plot_cell_trajectory(cds),
  plot_cell_trajectory(cds) + scale_color_manual(values=c('#fbea7d', '#e27268', '#7ba2c3'), name='State'),
  plot_cell_trajectory(cds, color_by='type') + scale_color_manual(values=c('#825c2a', '#ebd1ac'), name='Type'),
  plot_cell_trajectory(cds, color_by='depot') + scale_color_manual(values=c('#82643a', '#d1a567', '#6c4431', '#e3c78a'), name='Depot'),
  ncol=2
)

Monocle predictions in Seurat tSNE

Final figures

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKCgpgYGB7cn0KbGlicmFyeShTZXVyYXQpCmxpYnJhcnkobW9ub2NsZSkKbGlicmFyeShjb2xvcnNwYWNlKQpgYGAKCmBgYHtyfQpzZXVyb2JqIDwtIHJlYWRSRFMoJ291dHB1dC9zZXVyYXRfb2JqZWN0cy8xODA4MzEvMTB4LTE4MDgzMScpCmBgYAoKI0NvbG9ycwoKYGBge3IgZmlnMSwgZmlnLmhlaWdodD0xMCwgZmlnLndpZHRoPTEwLCBmaWcuYWxpZ249ImNlbnRlciJ9CmhjbF9wYWxldHRlcyhwbG90ID0gVFJVRSkKYGBgCgpUaW1lcG9pbnQgY29sb3JzCgpgYGB7ciBmaWcyLCBmaWcuaGVpZ2h0PTEwLCBmaWcud2lkdGg9MTIsIGZpZy5hbGlnbj0iY2VudGVyIn0KcGxvdF9ncmlkKAogIFRTTkVQbG90KHNldXJvYmosIGdyb3VwLmJ5PSd0aW1lcG9pbnQnLCBwdC5zaXplPTEsIGNvbG9ycy51c2U9cmV2KHNlcXVlbnRpYWxfaGNsKDUsIHBhbGV0dGU9J1RlYWxHcm4nKSkpLAogIFRTTkVQbG90KHNldXJvYmosIGdyb3VwLmJ5PSd0aW1lcG9pbnQnLCBwdC5zaXplPTEsIGNvbG9ycy51c2U9cmV2KHNlcXVlbnRpYWxfaGNsKDUsIHBhbGV0dGU9J0JsdUdybicpKSksCiAgVFNORVBsb3Qoc2V1cm9iaiwgZ3JvdXAuYnk9J3RpbWVwb2ludCcsIHB0LnNpemU9MSwgY29sb3JzLnVzZT1yZXYoc2VxdWVudGlhbF9oY2woNSwgcGFsZXR0ZT0nQmx1ZSBZZWxsb3cnKSkpLAogIFRTTkVQbG90KHNldXJvYmosIGdyb3VwLmJ5PSd0aW1lcG9pbnQnLCBwdC5zaXplPTEsIGNvbG9ycy51c2U9cmV2KHNlcXVlbnRpYWxfaGNsKDUsIHBhbGV0dGU9J1B1cnBPcicpKSkKKQpgYGAKCkN1c3RvbSBjb2xvcnMgdGltZXBvaW50cwoKYGBge3IgZmlnMywgZmlnLmhlaWdodD0xNSwgZmlnLndpZHRoPTEyLCBmaWcuYWxpZ249ImNlbnRlciJ9CnBsb3RfZ3JpZCgKICBUU05FUGxvdChzZXVyb2JqLCBncm91cC5ieT0ndGltZXBvaW50JywgcHQuc2l6ZT0xLCBjb2xvcnMudXNlPXJldihjKCcjMDI2M0ExJywgJyMwMDhGQjAnLCAnIzRDQjZCQycsICcjOEVEN0NBJywgJyNDQkYxREUnKSkpLAogIFRTTkVQbG90KHNldXJvYmosIGdyb3VwLmJ5PSd0aW1lcG9pbnQnLCBwdC5zaXplPTEsIGNvbG9ycy51c2U9cmV2KGMoJyM0ODQ3QTEnLCAnIzAwODdCRScsICcjMDBCRUQxJywgJyMzREVGREEnLCAnI0IwRkZERicpKSksCiAgVFNORVBsb3Qoc2V1cm9iaiwgZ3JvdXAuYnk9J3RpbWVwb2ludCcsIHB0LnNpemU9MSwgY29sb3JzLnVzZT1yZXYoYygnIzAwNTg5QycsJyMwMDhEQTUnLCAnIzAwQjlBMScsICcjNkRERDk1JywgJyNEN0Y3OTcnKSkpLAogIFRTTkVQbG90KHNldXJvYmosIGdyb3VwLmJ5PSd0aW1lcG9pbnQnLCBwdC5zaXplPTEsIGNvbG9ycy51c2U9cmV2KGMoJyMwMDc3QjUnLCAnIzAwQTdDMycsICcjMDBDQUMyJywgJyM0MkUwQjQnLCAnIzhDRTU5OScpKSksCiAgVFNORVBsb3Qoc2V1cm9iaiwgZ3JvdXAuYnk9J3RpbWVwb2ludCcsIHB0LnNpemU9MSwgY29sb3JzLnVzZT1yZXYoYygnIzAwNTA5MCcsJyMwMDdDOTgnLCcjMDBBMzlCJywnIzAwQzU5OCcsJyM4NkUwOTQnKSkpLAogICBUU05FUGxvdChzZXVyb2JqLCBncm91cC5ieT0ndGltZXBvaW50JywgcHQuc2l6ZT0xLCBjb2xvcnMudXNlPWMoJyNmNWViODInLCcjYzhkMjliJywnI2JjYTk4NicsJyNiZjg3N2YnLCcjYThjZWMyJykpLCBuY29sPTIsIGxhYmVscz1jKCdjdXN0b20xJywgJ2N1c3RvbTInLCAnY3VzdG9tMycsICdjdXN0b200JywgJ2N1c3RvbTUnLCAnY3VzdG9tNicpCikKYGBgCgpEZXBvdHMKCmBgYHtyIGZpZzQsIGZpZy5oZWlnaHQ9MTAsIGZpZy53aWR0aD0xMiwgZmlnLmFsaWduPSJjZW50ZXIifQpwbG90X2dyaWQoCiAgVFNORVBsb3Qoc2V1cm9iaiwgZ3JvdXAuYnk9J2RlcG90JywgcHQuc2l6ZT0xLCBjb2xvcnMudXNlPWMoJyM4MjVjMmEnLCAnI2ViZDFhYycsICcjNWMzNzI0JywgJyNlYWI0NzYnKSksCiAgVFNORVBsb3Qoc2V1cm9iaiwgZ3JvdXAuYnk9J2RlcG90JywgcHQuc2l6ZT0xLCBjb2xvcnMudXNlPWMoJyM4MjY0M2EnLCAnI2QxYTU2NycsICcjNmM0NDMxJywgJyNlM2M3OGEnKSksCiAgVFNORVBsb3Qoc2V1cm9iaiwgZ3JvdXAuYnk9J2RlcG90JywgcHQuc2l6ZT0xLCBjb2xvcnMudXNlPWMoJyM4MjVjMmEnLCAnI2ViZDFhYycsICcjNWMzNzI0JywgJyNkMWE1NjcnKSksCiAgVFNORVBsb3Qoc2V1cm9iaiwgZ3JvdXAuYnk9J2RlcG90JywgcHQuc2l6ZT0xLCBjb2xvcnMudXNlPWMoJ2Jyb3duJywgJ29yYW5nZScsICcjNWMzNzI0JywgJyNkMWE1NjcnKSksCiAgbmNvbD0yCikKYGBgCgoKTW9ub2NsZQoKYGBge3J9CmNkcyA8LSByZWFkUkRTKCdvdXRwdXQvbW9ub2NsZS8xODA4MzEvMTB4LTE4MDgzMS1tb25vY2xlLW1vbm9jbGVfZ2VuZWxpc3RfVDFUMlQzX1Q0VDVfcmVzLjEuNScpCmBgYAoKCmBgYHtyIGZpZzUsIGZpZy5oZWlnaHQ9MjAsIGZpZy53aWR0aD0xMiwgZmlnLmFsaWduPSJjZW50ZXIifQpwbG90X2dyaWQoCiAgcGxvdF9jZWxsX3RyYWplY3RvcnkoY2RzLCBjb2xvcl9ieT0ndGltZXBvaW50JykgKyBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPXJldihjKCcjMDA3N0I1JywgJyMwMEE3QzMnLCAnIzAwQ0FDMicsICcjNDJFMEI0JywgJyM4Q0U1OTknKSksIG5hbWUgPSAiVGltZXBvaW50IiksCiAgcGxvdF9jZWxsX3RyYWplY3RvcnkoY2RzLCBjb2xvcl9ieT0ndGltZXBvaW50JykgKyBnZW9tX3BvaW50KGNvbG9yPSd3aGl0ZScsIHNpemU9NSkgKyBnZW9tX3BvaW50KGFlcyhjb2xvdXI9dGltZXBvaW50KSwgYWxwaGE9MC4xKSArIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9cmV2KGMoJyMwMDc3QjUnLCAnIzAwQTdDMycsICcjMDBDQUMyJywgJyM0MkUwQjQnLCAnIzhDRTU5OScpKSwgbmFtZSA9ICJUaW1lcG9pbnQiKSwKICBwbG90X2NlbGxfdHJhamVjdG9yeShjZHMsIGNvbG9yX2J5PSd0aW1lcG9pbnQnKSArIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9cmV2KHNlcXVlbnRpYWxfaGNsKDUsIHBhbGV0dGU9J1RlYWxHcm4nKSksIG5hbWUgPSAiVGltZXBvaW50IiksCiAgcGxvdF9jZWxsX3RyYWplY3RvcnkoY2RzLCBjb2xvcl9ieT0ndGltZXBvaW50JykgKyBnZW9tX3BvaW50KGNvbG9yPSd3aGl0ZScsIHNpemU9NSkgKyBnZW9tX3BvaW50KGFlcyhjb2xvdXI9dGltZXBvaW50KSwgYWxwaGE9MC4xKSArIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9cmV2KHNlcXVlbnRpYWxfaGNsKDUsIHBhbGV0dGU9J1RlYWxHcm4nKSksIG5hbWUgPSAiVGltZXBvaW50IiksCiAgcGxvdF9jZWxsX3RyYWplY3RvcnkoY2RzKSwKICBwbG90X2NlbGxfdHJhamVjdG9yeShjZHMpICsgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz1jKCcjZmJlYTdkJywgJyNlMjcyNjgnLCAnIzdiYTJjMycpLCBuYW1lPSdTdGF0ZScpLAogIHBsb3RfY2VsbF90cmFqZWN0b3J5KGNkcywgY29sb3JfYnk9J3R5cGUnKSArIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9YygnIzgyNWMyYScsICcjZWJkMWFjJyksIG5hbWU9J1R5cGUnKSwKICBwbG90X2NlbGxfdHJhamVjdG9yeShjZHMsIGNvbG9yX2J5PSdkZXBvdCcpICsgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz1jKCcjODI2NDNhJywgJyNkMWE1NjcnLCAnIzZjNDQzMScsICcjZTNjNzhhJyksIG5hbWU9J0RlcG90JyksCiAgbmNvbD0yCikKYGBgCgpNb25vY2xlIHByZWRpY3Rpb25zIGluIFNldXJhdCB0U05FCgpgYGB7ciBmaWc2LCBmaWcuaGVpZ2h0PTEwLCBmaWcud2lkdGg9MTIsIGZpZy5hbGlnbj0iY2VudGVyIn0KcGxvdF9ncmlkKAogIFRTTkVQbG90KHNldXJvYmosIGdyb3VwLmJ5PSdTdGF0ZS5vbGQnLCBwdC5zaXplPTEsIGNvbG9ycy51c2U9YygnI2VjZGQ4MycsICcjZTI3MjY4JywgJyM5M2M4YmMnKSksCiAgVFNORVBsb3Qoc2V1cm9iaiwgZ3JvdXAuYnk9J1N0YXRlLm9sZCcsIHB0LnNpemU9MSwgY29sb3JzLnVzZT1jKCcjZmJlYTdkJywgJyNlMjcyNjgnLCAnIzkzYzhiYycpKSwKICBUU05FUGxvdChzZXVyb2JqLCBncm91cC5ieT0nU3RhdGUub2xkJywgcHQuc2l6ZT0xLCBjb2xvcnMudXNlPWMoJyNmNjc3NmYnLCAnIzFiYjg0MCcsICcjNjQ5ZWZjJykpLAogIFRTTkVQbG90KHNldXJvYmosIGdyb3VwLmJ5PSdTdGF0ZS5vbGQnLCBwdC5zaXplPTEsIGNvbG9ycy51c2U9YygnIzY2Y2M3ZCcsICcjZjY3NzZmJywgJyM2NDllZmMnKSksCiAgbmNvbD0yCikKYGBgCgojRmluYWwgZmlndXJlcwoKYGBge3IgZmlnNywgZmlnLmhlaWdodD0xNSwgZmlnLndpZHRoPTEyLCBmaWcuYWxpZ249ImNlbnRlciJ9CnBsb3RfZ3JpZCgKICBUU05FUGxvdChzZXVyb2JqLCBncm91cC5ieT0nZGVwb3QnLCBwdC5zaXplPTEsIGNvbG9ycy51c2U9YygnIzgyNjQzYScsICcjZDFhNTY3JywgJyM2YzQ0MzEnLCAnI2UzYzc4YScpKSwKICBUU05FUGxvdChzZXVyb2JqLCBncm91cC5ieT0ndGltZXBvaW50JywgcHQuc2l6ZT0xLCBjb2xvcnMudXNlPXJldihjKCcjMDA3N0I1JywgJyMwMEE3QzMnLCAnIzAwQ0FDMicsICcjNDJFMEI0JywgJyM4Q0U1OTknKSkpLAogIHBsb3RfY2VsbF90cmFqZWN0b3J5KGNkcywgY29sb3JfYnk9J2RlcG90JykgKyBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPWMoJyM4MjY0M2EnLCAnI2QxYTU2NycsICcjNmM0NDMxJywgJyNlM2M3OGEnKSwgbmFtZT0nRGVwb3QnKSwKICBwbG90X2NlbGxfdHJhamVjdG9yeShjZHMsIGNvbG9yX2J5PSd0aW1lcG9pbnQnKSArIGdlb21fcG9pbnQoY29sb3I9J3doaXRlJywgc2l6ZT01KSArIGdlb21fcG9pbnQoYWVzKGNvbG91cj10aW1lcG9pbnQpLCBhbHBoYT0wLjEpICsgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcz1yZXYoYygnIzAwNzdCNScsICcjMDBBN0MzJywgJyMwMENBQzInLCAnIzQyRTBCNCcsICcjOENFNTk5JykpLCBuYW1lID0gIlRpbWVwb2ludCIpLAogIFRTTkVQbG90KHNldXJvYmosIGdyb3VwLmJ5PSdTdGF0ZS5sYWJlbHMnLCBwdC5zaXplPTEsIGNvbG9ycy51c2U9YygnIzkzYzhiYycsICcjZmJlYTdkJywgJyNlMjcyNjgnKSksCiAgbmNvbD0yCikKYGBgCgo=